home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
msdos
/
dbhamlog
/
inji.prg
< prev
next >
Wrap
Text File
|
1991-10-18
|
3KB
|
123 lines
***************** 印刷 *****************
************* INJI.PRG **** T.Chino ****
DO WHILE .T.
CLEAR
SET COLOR TO BR
@ 1,13 SAY "*************************************************"
@ 2,13 SAY "* *"
@ 3,13 SAY "************************************* 印刷.PRG **"
SET COLOR TO GR
@ 2,16 SAY "アマチュア 無 線 QSO ログ 管 理 システム"
SET COLOR TO GI
@ 5,15 SAY " "
@ 6,15 SAY " "
@ 7,15 SAY " "
@ 8,15 SAY " "
@ 9,15 SAY " "
@ 10,15 SAY " "
@ 11,15 SAY " "
@ 12,15 SAY " "
@ 13,15 SAY " "
@ 14,15 SAY " "
@ 15,15 SAY " "
@ 16,15 SAY " "
@ 17,15 SAY " "
@ 18,15 SAY " "
@ 19,15 SAY " "
STOR 06 TO X1
STOR 08 TO X2
STOR 10 TO X3
STOR 12 TO X4
STOR 14 TO X5
STOR 16 TO X6
STOR 17 TO X7
STOR 18 TO X8
SET COLOR TO
STOR " 交信月日 ( 交信月日.PRG ) " TO MEN1
STOR " 周波数帯 ( 周波数帯.PRG ) " TO MEN2
STOR " 市郡番号 ( 市郡番号.PRG ) " TO MEN3
STOR " 格子位置 ( 格子位置.PRG ) " TO MEN4
STOR " 終 了 " TO MEN5
STOR " RED 2 PULS " TO MEN6
STOR " TEST (Z.PRG) " TO MEN7
STOR " ASSIST " TO MEN8
STOR 1 TO NUM
DO WHILE NUM<=8
STOR STR(NUM,1) TO NO
@ X&NO,25 SAY MEN&NO
STOR NUM+1 TO NUM
ENDDO
SET COLOR TO ,,BR
@ 21,15 TO 23,60 DOUBLE
@ 22,20 SAY " ↑ , ↓ で選択・RETURNで決定"
STOR 1 TO NUM
DO WHILE .T.
SET COLO TO GRI
STOR STR(NUM,1) TO NO
***************************
IF NO="6" .OR. NO="7" .OR. NO="8"
SET COLO TO R,R*,BG
ENDIF
***************************
@ X&NO,25 SAY MEN&NO
SET COLO TO
SET CURS OFF
STOR " " TO NUMBER
@ 0,0 GET NUMBER
READ
SET CURS ON
IF READKEY()=4
@ X&NO,25 SAY MEN&NO
ENDIF
IF READKEY()=5
@ X&NO,25 SAY MEN&NO
ENDIF
IF READKEY()=12
RETURN
ENDIF
************************************
DO CASE
CASE READKEY()=4 .AND. NUM=1
STOR 8 TO NUM
CASE READKEY()=4
STOR NUM-1 TO NUM
CASE READKEY()=5 .AND. NUM=8
STOR 1 TO NUM
CASE READKEY()=5
STOR NUM+1 TO NUM
CASE READKEY()=15
DO CASE
CASE NUM=1
DO QSODATE
CASE NUM=2
DO FREQ
CASE NUM=3
DO JCG
CASE NUM=4
DO GLP
CASE NUM=5
RETURN
CASE NUM=6
RUN RED2
CASE NUM=7
DO Z
CASE NUM=8
ASSIST
ENDCASE
EXIT
OTHERWISE
LOOP
ENDCASE
ENDDO
ENDDO